home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #114 (1991-03)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #114 (1991-03)(Amiga User Group Deutschland e.V.).adf / 3D-Funktion_1 / 3DFunkt1 < prev    next >
Text File  |  1989-07-03  |  2KB  |  80 lines
  1. REM  3D-Funktionen V1.2             H.Dörries   1990
  2.  
  3. memory all,chip,fast
  4. if all<500000 | chip<300000
  5.   print
  6.   print "Sorry - zu wenig RAM"
  7.   end
  8. endif
  9.  
  10. setblack 1
  11. load 1,"here:HVP/3DFunkt1.anim"
  12. display 1
  13. fade 1,1,3
  14. new 2,1
  15. copy 1,2
  16. loadanim 6,"here:HVP/3DFunkt1.anim"
  17. abort 0 : pointer 1
  18. load 5,"here:HVP/Schalter.pic"          :REM  Schablonen!
  19.  
  20. adone=0: halt=0
  21. buf=2
  22. speed 1
  23. tempo=1
  24. REM ----------------------------------------------------------------
  25. REM Animation 
  26. 100 pause tempo
  27.  if halt : goto 110 : endif
  28.  if adone : skipanim 6,buf,abs,rel,adone : endif
  29. anim 6,buf,abs,rel,adone
  30. display buf
  31. buf=3-buf: blitdest buf
  32.  
  33. REM Abfrage
  34. 110 ifmouse xm,ym
  35. if xm=-1: goto 100: endif
  36.   if xm>8 & xm<122
  37.     if ym<222 & ym>206          : REM   ENDE
  38.       blitdest 1: blit 5,128,206,8,206,114,16
  39.       blitdest 2: blit 5,128,206,8,206,114,16
  40.       blitdest buf
  41.       fade 0,buf,4
  42.       execute a,"here:c/assign here:"
  43.       end
  44.     endif
  45.  
  46.     if ym<206 & ym>190          : REM STOP-WEITER
  47.     halt=1-halt
  48.       if halt
  49.         blitdest 1: blit 5,128,190,8,190,114,16
  50.         blitdest 2: blit 5,128,190,8,190,114,16
  51.       else
  52.         blitdest 1: blit 5,8,190,8,190,114,16
  53.         blitdest 2: blit 5,8,190,8,190,114,16
  54.       endif
  55.     blitdest buf
  56.     goto 100
  57.     endif
  58.  
  59.     if ym<190 & ym>174          :REM  PLUS-MINUS
  60.       if xm<64
  61.          blitdest 1: blit 5,128,174,8,174,57,16
  62.                      blit 5,65,174,65,174,57,16
  63.          blitdest 2: blit 5,128,174,8,174,57,16
  64.                      blit 5,65,174,65,174,57,16
  65.          blitdest buf              
  66.          tempo=tempo-1
  67.            if tempo<0 : tempo=0 : endif
  68.       else
  69.          blitdest 1: blit 5,185,174,65,174,57,16
  70.                      blit 5,8,174,8,174,57,16
  71.          blitdest 2: blit 5,185,174,65,174,57,16
  72.                      blit 5,8,174,8,174,57,16
  73.          blitdest buf              
  74.          tempo=tempo+1
  75.       endif
  76.     goto 100
  77.     endif
  78.   endif
  79. goto 100
  80.